How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/vindex.dir/00039_Script_aIndexManager

Text File | 1995-09-06 | 5KB | 139 lines

--òò╩aIndexManager
property pTopicMenu , pLatchedAlpha
on birth me
  return me
end

on testIndexRollover me
  --set the trace = true
  set thisAlpha =  the mouseCast
  if (thisAlpha > 0 and thisAlpha < 27) then
    set thisAlphaIndex = getAt(pTopicMenu,thisAlpha)
    setTopicMenu(thisAlphaIndex)
    clearRefLinkIcon(thisAlphaIndex)
  else
    if (objectP(pLatchedAlpha) ) then
      --òò because the art department could not generate the
      --òò the highlight art fro the topic menu we need to
      --disable the highlight fucnctionality (commented out below)
      --if (rollover(2)) then
      -- secondaryHilight (sub-menu)
      -- set vOffset = the mouseV
      --  setTopicHiLight(pLatchedAlpha , vOffset)
      -- else
      -- revert to latched topic menu
      setTopicMenu(pLatchedAlpha)
      -- end if
    end if
  end if
end

on clickAlpha me
  set thisAlpha = the mouseCast
  if  (thisAlpha >= 1 and thisAlpha <= 26) then
    set pLatchedAlpha = getAt(pTopicMenu,thisAlpha)
    clearRefLinkIcon(pLatchedAlpha)
  end if
end

on clickTopic me
  set vOffset = the mouseV
  selectTopicFromMenu(pLatchedAlpha,vOffset)
end

on clickRefLink me , horzPos,vertPos
  set vOffset = vertPos --the mouseV
  clickRefLink(pLatchedAlpha,vOffset ,horzPos,vertPos)
end

on resetIndex me
  reset(pLatchedAlpha )
end

on initIndex me
  set pTopicMenu = []
  set indexCount = 1
  --òò A Topic Menu
  set topicObjClass = the number of cast "aTopicMenu"
  set thisMenu = (birth (script topicObjClass, 178 , 178 , 2 , 177 , 41 , 210,  7,0))
  append pTopicMenu, thisMenu
  set pLatchedAlpha = thisMenu
  --òò B
  set thisMenu =  (birth (script topicObjClass, 179 , 179 , 2 , 177 , 41 ,221,  13,0))
  append pTopicMenu, thisMenu
  --òò C
  set thisMenu =  (birth (script topicObjClass, 180 , 180 , 2 , 177 , 41 ,235,  14,8))
  append pTopicMenu, thisMenu
  --òò D
  set thisMenu =  (birth (script topicObjClass, 181 , 181 , 2 , 177 , 41 ,265,  6,0))
  append pTopicMenu, thisMenu
  --òò E
  set thisMenu =  (birth (script topicObjClass, 182 , 182 , 2 , 177 , 41 ,276,  4,0))
  append pTopicMenu, thisMenu
  --òò F
  set thisMenu =  (birth (script topicObjClass, 183 , 183 , 2 , 177 , 41 ,287,  10,10))
  append pTopicMenu, thisMenu
  --òò G
  set thisMenu =  (birth (script topicObjClass, 184 , 184 , 2 , 177 , 41 ,309,  4,0))
  append pTopicMenu, thisMenu
  --òò H
  set thisMenu =  (birth (script topicObjClass, 185 , 185 , 2 , 177 , 41 ,320,  10,0))
  append pTopicMenu, thisMenu
  --òò I
  set thisMenu =  (birth (script topicObjClass, 186 , 186 , 2 , 177 , 41 ,331,  5,0))
  append pTopicMenu, thisMenu
  --òò J
  set thisMenu =  (birth (script topicObjClass, 187 , 187 , 2 , 177 , 41 ,342,  1,0))
  append pTopicMenu, thisMenu
  --òò K
  set thisMenu =  (birth (script topicObjClass, 188 , 188 , 2 , 177 , 41 ,353,  2,0))
  append pTopicMenu, thisMenu
  --òò L
  set thisMenu = (birth (script topicObjClass, 189 , 189 , 2 , 177 , 41 ,364,  5,0))
  append pTopicMenu, thisMenu
  --òò M
  set thisMenu =  (birth (script topicObjClass, 190 , 190 , 2 , 177 , 41 ,375,  5,0))
  append pTopicMenu, thisMenu
  --òò N
  set thisMenu =  (birth (script topicObjClass, 191 , 191 , 2 , 177 , 41 ,386,  4,0))
  append pTopicMenu, thisMenu
  --òò O
  set thisMenu =  (birth (script topicObjClass, 192 , 192 , 2 , 177 , 41 ,397,  3,0))
  append pTopicMenu, thisMenu
  --òò P
  set thisMenu = (birth (script topicObjClass, 193 , 193 , 2 , 177 , 41 ,408,  1,0))
  append pTopicMenu, thisMenu
  --òò Q
  set thisMenu =  (birth (script topicObjClass, 0 , 0 , 0 , 177 , 41 ,45,  0,0))
  append pTopicMenu, thisMenu
  --òò R
  set thisMenu =  (birth (script topicObjClass, 194 , 194 , 2 , 177 , 41 ,419,  5,0))
  append pTopicMenu, thisMenu
  --òò S
  set thisMenu =  (birth (script topicObjClass, 195 , 195 , 2 , 177 , 41 ,430,  11,9))
  append pTopicMenu, thisMenu
  --òò T
  set thisMenu =  (birth (script topicObjClass, 196 , 196 , 2 , 177 , 41 ,452,  14,0))
  append pTopicMenu, thisMenu
  --òò U
  set thisMenu =  (birth (script topicObjClass, 0 , 0 , 0 , 177 , 41 ,45,  0,0))
  append pTopicMenu, thisMenu
  --òò V
  set thisMenu =  (birth (script topicObjClass, 197 , 197 , 2 , 177 , 41 ,468,  2,0))
  append pTopicMenu, thisMenu
  --òò W
  set thisMenu =  (birth (script topicObjClass, 198 , 198 , 2 , 177 , 41 ,472,  6,0))
  append pTopicMenu, thisMenu
  --òò X
  set thisMenu =  (birth (script topicObjClass, 0 , 0 , 0 , 177 , 41 ,45,  0,0))
  append pTopicMenu, thisMenu
  --òò Y
  set thisMenu =  (birth (script topicObjClass, 199 , 199 , 2 , 177 , 41 ,479,  1,0))
  append pTopicMenu, thisMenu
  --òò Z
  set thisMenu =  (birth (script topicObjClass, 0 , 0 , 0 , 177 , 41 ,45,  0,0))
  append pTopicMenu, thisMenu
end